Программа для расчёта конструкций RFEM 6 является основой нашей модульной системы программного обеспечения. Основная программа RFEM 6 используется для задания конструкций, материалов и нагрузок плоских и пространственных конструктивных систем, состоящих из плит, стен, оболочек и стержней. Программа также позволяет создавать комбинированные конструкции, а также моделировать тела и контактные элементы.
RSTAB 9 - это мощная программа для расчёта и проектирования 3D конструкций балок, каркасов или ферм, которая которая помогает инженерам-строителям соответствовать современным требованиям и отражает последние тенденции в области строительного проектирования.
Вы часто тратите слишком много времени на расчёт сечений? Программное обеспечение Dlubal и автономная программа RSECTION облегчают вашу работу, определяя характеристики и выполняя расчёт напряжений для различных сечений.
Вы всегда знаете, откуда дует ветер? Конечно, со стороны инноваций! RWIND 2 - это программа, которая использует цифровую аэродинамическую трубу для численного моделирования потоков ветра. Программа моделирует эти потоки вокруг зданий любой геометрической формы и определяет ветровые нагрузки на поверхности.
Вам нужен обзор зон снеговой, ветровой и сейсмической нагрузок? Тогда вы находитесь по адресу. Используйте инструмент Geo-Zone Tool для быстрого и лёгкого определения снеговых нагрузок, скоростей ветра и данных по сейсмике в соответствии с ASCE 7‑16 и другими нормативами различных стран.
Хотите попробовать в работе функции программ Dlubal Software? У вас есть такая возможность! Бесплатная полная версия на 90 дней позволяет вам в полной мере попробовать в работе все наши программы.
В примере программы показаны два различных метода создания узловых опор. Тип перечисления NodalSupportType используется для первой узловой опоры.
NodalSupportType
Как вариант, можно передать список. В списке должно быть шесть значений. Первые три значения задают степени свободы перемещения, последние три - степени свободы кручения.
Значение inf означает, что степень свободы зафиксирована. При 0 степень свободы не задана. Числовое значение задаёт пружину.
inf
0
Следующий макрос VBA показывает создание узловой опоры с нелинейностью «Частичная активность». Исходный код затем находится в разделе Загрузки.
Option Explicit
' --------------------------Sub SetNSupports()' --------------------------Dim model As RFEM5.modelDim data As IModelDataDim support(0) As RFEM5.NodalSupportDim ISup As RFEM5.INodalSupportDim ISupPA как RFEM5.IPartialActivityDim nlPA как частичная активность
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
End Sub
Для задания расчётных длин в RFEM 6 есть два варианта. First, edit the member and navigate to the "Design Types" Tab. Second, create a new effective lengths definition.
Third, set whether you would like to calculate the critical moment according to the Eigenvalue method or Chapter F from the AISC. Fourth, navigate to the "Nodal Supports and Effective Lengths" tab. Within this tab there are two different methods that can be used.
Метод 1: Узловые опоры и расчетные длины
Referencing Member No. 1 in the attached model, for this column you can see a how the effective lengths for the Start, End, and Intermediate nodes are defined. First, click on Select Member or Member Set and then select the member. This will activate the intermediate nodes along the member length in the table. Next, check whether the node can move in the y/z axis (weak/strong axis), rotate about its local x-axis (torsion), and about its local z-axis (LTB).
The Warping (ω) input options will adjust the effective length for LTB, similar to the rotational z-axis restraint. For Ch. F calculations, the warping can be fully restrained or released. For Eigenvalue calculations, in addition to the fully restrained or released option, there is also the ability to set partial fixity with a warping spring constant.
Top and bottom flanges can also be restrained separately by fixing the y-axis and by releasing (unchecking) the rotation about the local x-axis restraint (torsion).
Метод 2: "K" Factors and Absolute Values
Referencing Member No. 5 in the attached model, the effective length factors can be used to define the unbraced length directly and/or apply the appropriate member end conditions. To adjust the unbraced lengths directly instead of utilizing the nodes on the member (Method 1), the "K" factors can be entered manually in the table below. Or the "Absolute Values" can be entered by selecting the option "Absolute Values". Then the unbraced length itself can be entered manually instead. This method is best used when there are no intermediate nodes currently present on the member.
Поворот узловой опоры определяется посредством пользовательской системы координат. В следующем примере узловая опора повернута на 45 ° вокруг оси z. Нет необходимости определять новую систему координат через узлы. В этом случае достаточно использовать параметр RotatedSystemType, который позволяет выполнить пространственный поворот опоры с помощью трех поворотов вокруг оси x, y и z. Поворот задается в радианах:
Sub test_nodal_support ()Dim iApp As RFEM5.ApplicationSet iApp = GetObject(, "RFEM5.Application")iApp.LockLicenseDim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModelOn Error GoTo e' получить интерфейс данных моделиDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData' получить интерфейс узловой опорыРазмеры как в RFEM5.INodalSupportУстановите iNs = iModData.GetNodalSupport (1, AtNo)' получить данные узловой опорыРазмеры как в RFEM5.NodalSupportns = iNs.GetData' изменить данныеns.ReferenceSystem = UserDefinedSystemTypens.UserDefinedReferenceSystem.Axis1 = AxisXns.UserDefinedReferenceSystem.Axis2 = AxisYns.UserDefinedReferenceSystem.Type = RotatedSystemTypens.UserDefinedReferenceSystem.RotationAngles.X = 0ns.UserDefinedReferenceSystem.RotationAngles.Y = 0ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3,14159265359/180' задать данные узловой опорыiModData.PrepareModificationiNs.SetData nsiModData.FinishModificatione:If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseSet iMod = NothingEnd Sub
Программа берет существующую узловую опору из текущей открытой модели и модифицирует ее. Поскольку пользовательская система координат не является прямой частью интерфейса INodalSupport узловой опоры, то поворот, конечно же, можно передать при создании узловой опоры.
Способ создания узловой опоры с диаграммой нелинейности показан в следующем макросе VBA. Исходный код затем находится в разделе Загрузки.
Как и все остальные результаты, результирующую сечения можно считывать с помощью команды IModel3 → ICalculation2 → IResults2. Интерфейс результатов обеспечивается посредством функции GetResultant, которая при указании номера желаемого сечения и типа распределения результатов способна вернуть структуру ResultantForce. В данной структуре отображаются, среди прочего, также силы и моменты в виде векторов:
При программировании через интерфейс COM, доступны для узловой опоры функции «ReferenceSystem» и «UserDefinedReferenceSystem». Причем с помощью функции «ReferenceSystem» можно сначала определить тип пользовательской системы координат (например, «Повернутая» или «Система координат»), а затем, в зависимости от выбранного типа, задать данный тип системы посредством команды «UserDefinedReferenceSystem».
В следующем примере была в качестве типа системы установлена «Система координат», для которой была создана также пользовательская система координат:
// create user defined coordinate systemIGuideObjects iGuide = iModel.GetGuideObjects();// delete cosy No 2UserCoordinateSystem[] csList = iGuide.GetCoordinateSystems();if (csList.Length > 1){for (int i = 0; i < csList.Length; ++i){if (csList[i].No == 2){iGuide.PrepareModification();iGuide.DeleteObjects(GuideObjectType.CoordinateSystemObject, "2");iGuide.FinishModification();}}}// define new cosy No 2UserCoordinateSystem uCs = new UserCoordinateSystem();uCs.Name = "test";uCs.Comment = "test";uCs.No = 2;uCs.IsValid = true;uCs.Origin.X = 1;uCs.Origin.Y = 0;uCs.Origin.Z = 1;uCs.Point1.X = 2;uCs.Point1.Y = 0;uCs.Point1.Z = 1;uCs.Point2.X = 1;uCs.Point2.Y = 1;uCs.Point2.Z = 2;// set cosy No 2iGuide.PrepareModification();iGuide.SetCoordinateSystem(uCs);iGuide.FinishModification();// create nodal support with user defined cosyNodalSupport ns = new NodalSupport();ns.SupportConstantX = -1;ns.SupportConstantY = -1;ns.SupportConstantZ = -1;ns.RestraintConstantX = -1;ns.RestraintConstantY = 0;ns.RestraintConstantZ = -1;ns.Comment = "user defined cosy";ns.NodeList = "1";ns.ReferenceSystem = ReferenceSystemType.UserDefinedSystemType;ns.UserDefinedReferenceSystem.ObjectNo = 2;ns.UserDefinedReferenceSystem.Type = UserDefinedAxisSystemType.DefinedCoordinateSystemType;iModData.PrepareModification();iModData.SetNodalSupport(ns);iModData.FinishModification();
Для создания системы координат потребуется наличие интерфейса для вспомогательных объектов: 'IGuideObjects'. С помощью функции «DeleteObjects()» потом сначала удалится существующая система координат номер 2, а затем посредством функции «SetCoordinateSystem()» создастся новая. Не забудьте также обратить внимание на блок «Prepare/Finish-Modification», благодаря которому можно добавлять новые элементы.
Узловая опора затем передается через интерфейс «IModelData». Здесь тоже потребуется блок «Prepare/Finish-Modification».
Да, узловые высвобождения можно создавать через интерфейс COM. Вот пример:
Sub nodal_release ()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Set iApp = GetObject(, "RFEM5.Application")iApp.LockLicense test = iApp.GetModelCountУстановить iModel = iApp.GetModel (0) Dim iModeldata как RFEM5.iModeldataУстановите iModeldata = iModel.GetModelData ' для установки узлового высвобождения требуется шарнир стержня' объект для системы координат не может совпадать с высвобожденнымТусклый кивокnodRel.Location = OriginalLocationTypenodRel.AxisSystem = LocalFromLinenodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "тестовый высвобождение узла"nodRel.MemberHingeNo = 1nodRel.NodeNo = 1nodRel.ReleasedMembers = 1 iModeldata.PrepareModificationiModeldata.SetNodalRelease nodReliModeldata.FinishModification e: Если Err.Number <> 0, то MsgBox Err.description,, Err.Source iApp.UnlockLicense
Обратите внимание, что местная система координат может не относиться к тем же элементам, что и высвобожденные.